home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / dev / misc / LEDA_src.lha / LEDA-3.1c-source / src / arith / isparc_cvecsubto.s < prev    next >
Encoding:
Text File  |  1994-11-17  |  618 b   |  34 lines
  1.     .seg    "text"            ! [internal]
  2.     .global    _cvecsubto
  3. _cvecsubto:
  4.     tst    %o2            ! count
  5.     ble    L77095
  6.     mov    0,%o5            ! carry
  7. L77093:
  8.     ld    [%o0],%g1        ! *a
  9.     ld    [%o1],%g2        ! *b
  10.     inc    4, %o1            ! b++
  11.     subcc    %g1, %g2, %g1        ! *a - *b
  12.     addx    %g0, %g0, %g3
  13.     subcc    %g1, %o5, %g1        ! -carry
  14.     addx    %g3, %g0, %o5        ! new carry
  15.     st    %g1, [%o0]        ! *a
  16.     subcc    %o2, 1, %o2        ! count--
  17.     bg    L77093
  18.     inc    4, %o0            ! a++
  19. L77095:
  20.     tst    %o5            ! carry
  21.     be    L77100
  22.     nop
  23. L77097:
  24.     ld    [%o0],%g1        ! *a
  25.     subcc    %g1, %o5, %g1        ! *a - carry
  26.     addxcc    %g0, %g0, %o5        ! new carry
  27.     st    %g1, [%o0]        ! *a
  28.     bne    L77097
  29.     inc    4,%o0            ! a++
  30. L77100:
  31.     retl
  32.     nop
  33.     .seg    "data"            ! [internal]
  34.